home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / Q-Quantum Link / (n)q2.d64 / rent1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-25  |  8KB  |  325 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT""
  2. 5 PRINT"[147]"
  3. 6 PRINT "RENT RECEIPT PROGRAM"
  4. 7 PRINT
  5. 8 PRINT"HIT RETURN AFTER ENTERING INFORMATION FOR EACH QUESTION"
  6. 9 PRINT
  7. 13 PRINT"HOW MANY RECEIPTS NEEDED? (1-9)"
  8. 14 INPUT ZZ
  9. 15 PRINT"[147]"
  10. 20 PRINT
  11. 30 PRINT"INPUT FIRST PERSONS NAME"
  12. 40 INPUTA$
  13. 50 PRINT"INPUT DATE"
  14. 60 PRINT"EXAMPLE 7/12/87"
  15. 70 INPUTB$
  16. 80 PRINT"INPUT 'AMOUNT OWED'"
  17. 90 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  18. 100 INPUTC
  19. 110 PRINT"INPUT 'AMOUNT PAID'"
  20. 120 PRINT"SAME FORMAT AS ABOVE"
  21. 130 INPUTD
  22. 160 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  23. 170 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  24. 180 INPUTF$
  25. 190 INPUTG$
  26. 200 INPUTH$
  27. 210 INPUTI$
  28. 215 PRINT"[147]"
  29. 216 IF ZZ=1 THEN 1590
  30. 220 PRINT"INPUT SECOUND PERSONS NAME"
  31. 230 INPUTJ$
  32. 270 PRINT"INPUT 'AMOUNT OWED'"
  33. 280 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  34. 290 INPUTL
  35. 300 PRINT"INPUT 'AMOUNT PAID'"
  36. 310 PRINT"SAME FORMAT AS ABOVE"
  37. 320 INPUTM
  38. 330 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  39. 340 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  40. 350 INPUTN$
  41. 360 INPUTO$
  42. 370 INPUTP$
  43. 380 INPUTQ$
  44. 385 IF ZZ=2 THEN 1590
  45. 390 PRINT"[147]"
  46. 400 PRINT"INPUT THIRD PERSONS NAME"
  47. 410 INPUTR$
  48. 450 PRINT"INPUT 'AMOUNT OWED'"
  49. 460 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  50. 470 INPUTT
  51. 480 PRINT"INPUT 'AMOUNT PAID'"
  52. 500 PRINT"SAME FORMAT AS ABOVE"
  53. 510 INPUTU
  54. 520 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  55. 530 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  56. 540 INPUTV$
  57. 550 INPUTW$
  58. 560 INPUTX$
  59. 570 INPUTY$
  60. 580 PRINT"[147]"
  61. 590 IF ZZ=3 THEN 1590
  62. 600 PRINT"INPUT FOURTH PERSONS NAME"
  63. 610 INPUTZ$
  64. 650 PRINT"INPUT 'AMOUNT OWED'"
  65. 655 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  66. 660 INPUTBB
  67. 670 PRINT"INPUT 'AMOUNT PAID'"
  68. 680 PRINT"SAME FORMAT AS ABOVE"
  69. 690 INPUTCC
  70. 700 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  71. 710 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  72. 720 INPUTDD$
  73. 730 INPUTEE$
  74. 740 INPUTFF$
  75. 750 INPUTGG$
  76. 755 IF ZZ=4 THEN 1590
  77. 760 PRINT"[147]"
  78. 770 PRINT"INPUT FIFTH PERSONS NAME"
  79. 780 INPUTHH$
  80. 820 PRINT"INPUT 'AMOUNT OWED'"
  81. 830 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  82. 840 INPUTJJ
  83. 850 PRINT"INPUT 'AMOUNT PAID'"
  84. 860 PRINT"SAME FORMAT AS ABOVE"
  85. 870 INPUTKK
  86. 880 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  87. 890 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  88. 900 INPUTLL$
  89. 910 INPUTMM$
  90. 920 INPUTNN$
  91. 930 INPUTOO$
  92. 935 PRINT"[147]"
  93. 936 IF ZZ=5 THEN 1590
  94. 940 PRINT"INPUT SIXTH PERSONS NAME"
  95. 950 INPUTPP$
  96. 980 PRINT"INPUT 'AMOUNT OWED'"
  97. 990 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  98. 1000 INPUTRR
  99. 1010 PRINT"INPUT 'AMOUNT PAID'"
  100. 1020 PRINT"SAME FORMAT AS ABOVE"
  101. 1030 INPUTSS
  102. 1040 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  103. 1050 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  104. 1060 INPUTTT$
  105. 1070 INPUTUU$
  106. 1080 INPUTVV$
  107. 1090 INPUTWW$
  108. 1091 IF ZZ=6 THEN 1590
  109. 1095 PRINT"[147]"
  110. 1100 PRINT"INPUT SEVENTH[160]PERSONS NAME"
  111. 1110 INPUTXX$
  112. 1140 PRINT"INPUT 'AMOUNT OWED'"
  113. 1150 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  114. 1160 INPUTAA
  115. 1170 PRINT"INPUT 'AMOUNT PAID'"
  116. 1180 PRINT"SAME FORMAT AS ABOVE"
  117. 1190 INPUTAB
  118. 1200 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  119. 1210 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  120. 1220 INPUTAC$
  121. 1230 INPUTAD$
  122. 1240 INPUTAE$
  123. 1250 INPUTAF$
  124. 1251 IF ZZ=7 THEN1590
  125. 1255 PRINT"[147]"
  126. 1260 PRINT"INPUT EIGTH PERSONS NAME"
  127. 1270 INPUTAG$
  128. 1300 PRINT"INPUT 'AMOUNT OWED'"
  129. 1310 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  130. 1320 INPUTAI
  131. 1330 PRINT"INPUT 'AMOUNT PAID'"
  132. 1350 INPUTAJ
  133. 1360 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  134. 1370 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  135. 1380 INPUTAK$
  136. 1390 INPUTAL$
  137. 1400 INPUTAM$
  138. 1410 INPUTAN$
  139. 1411 IF ZZ=8 THEN 1590
  140. 1415 PRINT"[147]"
  141. 1420 PRINT"INPUT NINTH PERSONS NAME"
  142. 1430 INPUTAO$
  143. 1460 PRINT"INPUT 'AMOUNT OWED'"
  144. 1470 PRINT"EXAMPLE 80.95,70.90 DO NOT PUT THE $ IN FRONT OF DOLLAR AMOUNT"
  145. 1480 INPUTAQ
  146. 1490 PRINT"INPUT 'AMOUNT PAID'"
  147. 1500 PRINT"SAME FORMAT AS ABOVE"
  148. 1510 INPUTAR
  149. 1520 PRINT"INPUT ANY ADDITIONAL MESSAGE"
  150. 1530 PRINT"LIMIT MESSAGE TO 4 LINES, AND AFTER EACH LINE HIT RETURN"
  151. 1540 INPUTAS$
  152. 1550 INPUTAT$
  153. 1560 INPUTAU$
  154. 1570 INPUTAV$
  155. 1590 PRINT"[147]"
  156. 2000 OPEN 3,4
  157. 2010 PRINT#3,"----------------------------------------------------------------"
  158. 2020 PRINT#3,CHR$(15);CHR$(14)
  159. 2030 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  160. 2040 PRINT#3,CHR$(15)
  161. 2050 PRINT#3,"NAME "A$
  162. 2060 PRINT#3,"DATE PAID "B$
  163. 2070 PRINT#3,"AMOUNT OWED $"C
  164. 2080 PRINT#3,"AMOUNT PAID $"D
  165. 2090 A1=C-D
  166. 2100 PRINT#3,"AMOUNT DUE  $"A1
  167. 2110 PRINT#3,"ATTENTION: "F$
  168. 2120 PRINT#3,"           "G$
  169. 2130 PRINT#3,"           "H$
  170. 2140 PRINT#3,"           "I$
  171. 2141 PRINT#3,"GUEST->"
  172. 2142 PRINT#3,"HOST ->"
  173. 2150 PRINT#3,"----------------------------------------------------------------"
  174. 2160 IF ZZ=1 THEN 3871
  175. 2210 PRINT#3,"----------------------------------------------------------------"
  176. 2220 PRINT#3,CHR$(15);CHR$(14)
  177. 2230 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  178. 2240 PRINT#3,CHR$(15)
  179. 2250 PRINT#3,"NAME "J$
  180. 2260 PRINT#3,"DATE PAID "B$
  181. 2270 PRINT#3,"AMOUNT OWED $"L
  182. 2280 PRINT#3,"AMOUNT PAID $"M
  183. 2290 A2=L-M
  184. 2300 PRINT#3,"AMOUNT DUE  $"A2
  185. 2310 PRINT#3,"ATTENTION: "N$
  186. 2420 PRINT#3,"           "O$
  187. 2430 PRINT#3,"           "P$
  188. 2440 PRINT#3,"           "Q$
  189. 2441 PRINT#3,"GUEST->"
  190. 2442 PRINT#3,"HOST ->"
  191. 2450 PRINT#3,"----------------------------------------------------------------"
  192. 2460 IF ZZ=2 THEN 3871
  193. 2510 PRINT#3,"----------------------------------------------------------------"
  194. 2520 PRINT#3,CHR$(15);CHR$(14)
  195. 2530 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  196. 2540 PRINT#3,CHR$(15)
  197. 2550 PRINT#3,"NAME "R$
  198. 2560 PRINT#3,"DATE PAID "B$
  199. 2570 PRINT#3,"AMOUNT OWED $"T
  200. 2580 PRINT#3,"AMOUNT PAID $"U
  201. 2590 A3=T-U
  202. 2600 PRINT#3,"AMOUNT DUE  $"A3
  203. 2610 PRINT#3,"ATTENTION: "V$
  204. 2620 PRINT#3,"           "W$
  205. 2630 PRINT#3,"           "X$
  206. 2640 PRINT#3,"           "Y$
  207. 2641 PRINT#3,"GUEST->"
  208. 2642 PRINT#3,"HOST ->"
  209. 2650 PRINT#3,"----------------------------------------------------------------"
  210. 2660 IF ZZ=3 THEN 3871
  211. 2670 PRINT#3,CHR$(12)
  212. 2710 PRINT#3,"----------------------------------------------------------------"
  213. 2720 PRINT#3,CHR$(15);CHR$(14)
  214. 2730 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  215. 2740 PRINT#3,CHR$(15)
  216. 2750 PRINT#3,"NAME "Z$
  217. 2760 PRINT#3,"DATE PAID "BB$
  218. 2770 PRINT#3,"AMOUNT OWED $"BB
  219. 2780 PRINT#3,"AMOUNT PAID $"CC
  220. 2790 A4=BB-CC
  221. 2800 PRINT#3,"AMOUNT DUE  $"A4
  222. 2810 PRINT#3,"ATTENTION: "DD$
  223. 2820 PRINT#3,"           "EE$
  224. 2830 PRINT#3,"           "FF$
  225. 2840 PRINT#3,"           "GG$
  226. 2841 PRINT#3,"GUEST->"
  227. 2842 PRINT#3,"HOST ->"
  228. 2850 PRINT#3,"----------------------------------------------------------------"
  229. 2860 IF ZZ=4 THEN 3871
  230. 2910 PRINT#3,"----------------------------------------------------------------"
  231. 2920 PRINT#3,CHR$(15);CHR$(14)
  232. 2930 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  233. 2940 PRINT#3,CHR$(15)
  234. 2950 PRINT#3,"NAME "HH$
  235. 2960 PRINT#3,"DATE PAID "B$
  236. 2970 PRINT#3,"AMOUNT OWED $"JJ
  237. 2980 PRINT#3,"AMOUNT PAID $"KK
  238. 2990 A5=JJ-KK
  239. 3000 PRINT#3,"AMOUNT DUE  $"A5
  240. 3010 PRINT#3,"ATTENTION: "LL$
  241. 3020 PRINT#3,"           "MM$
  242. 3030 PRINT#3,"           "NN$
  243. 3040 PRINT#3,"           "OO$
  244. 3041 PRINT#3,"GUEST->"
  245. 3042 PRINT#3,"HOST ->"
  246. 3050 PRINT#3,"----------------------------------------------------------------"
  247. 3060 IF ZZ=5 THEN 3871
  248. 3110 PRINT#3,"----------------------------------------------------------------"
  249. 3120 PRINT#3,CHR$(15);CHR$(14)
  250. 3130 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  251. 3140 PRINT#3,CHR$(15)
  252. 3150 PRINT#3,"NAME "PP$
  253. 3160 PRINT#3,"DATE PAID "B$
  254. 3170 PRINT#3,"AMOUNT OWED $"RR
  255. 3180 PRINT#3,"AMOUNT PAID $"SS
  256. 3190 A6=RR-SS
  257. 3200 PRINT#3,"AMOUNT DUE  $"A6
  258. 3210 PRINT#3,"ATTENTION: "TT$
  259. 3220 PRINT#3,"           "UU$
  260. 3230 PRINT#3,"           "VV$
  261. 3240 PRINT#3,"           "WW$
  262. 3241 PRINT#3,"GUEST->"
  263. 3242 PRINT#3,"HOST ->"
  264. 3250 PRINT#3,"----------------------------------------------------------------"
  265. 3251 PRINT#3,CHR$(12)
  266. 3260 IF ZZ=6 THEN 3871
  267. 3310 PRINT#3,"----------------------------------------------------------------"
  268. 3320 PRINT#3,CHR$(15);CHR$(14)
  269. 3330 PRINT#3,"GUEST ROOM FEE RECEIPT   "
  270. 3340 PRINT#3,CHR$(15)
  271. 3350 PRINT#3,"NAME "XX$
  272. 3360 PRINT#3,"DATE PAID "B$
  273. 3370 PRINT#3,"AMOUNT OWED $"AA
  274. 3380 PRINT#3,"AMOUNT PAID $"AB
  275. 3390 A7=AA-AB
  276. 3400 PRINT#3,"AMOUNT DUE  $"A7
  277. 3410 PRINT#3,"ATTENTION : AC$
  278. 3420 [152]3,"           "AD$
  279. 3430 [152]3,"           "AE$
  280. 3440 [152]3,"           "AF$
  281. 3441 [152]3,"GUEST->"
  282. 3442 [152]3,"HOST ->"
  283. 3450 [152]3,"----------------------------------------------------------------"
  284. 3460 [139] ZZ[178]7 [167] 3871
  285. 3510 [152]3,"----------------------------------------------------------------"
  286. 3520 [152]3,[199](15);[199](14)
  287. 3530 [152]3,"GUEST ROOM FEE RECEIPT   "
  288. 3540 [152]3,[199](15)
  289. 3550 [152]3,"NAME "AG$
  290. 3560 [152]3,"DATE PAID "B$
  291. 3570 [152]3,"AMOUNT OWED $"AI
  292. 3580 [152]3,"AMOUNT PAID $"AJ
  293. 3590 A8[178]AI[171]AJ
  294. 3600 [152]3,"AMOUNT DUE  $"A8
  295. 3610 [152]3,"ATTENTION: "AK$
  296. 3620 [152]3,"           "AL$
  297. 3630 [152]3,"           "AM$
  298. 3640 [152]3,"           "AN$
  299. 3641 [152]3,"GUEST->"
  300. 3642 [152]3,"HOST ->"
  301. 3650 [152]3,"----------------------------------------------------------------"
  302. 3660 [139] ZZ[178]8 [167] 3871
  303. 3710 [152]3,"----------------------------------------------------------------"
  304. 3720 [152]3,[199](15);[199](14)
  305. 3730 [152]3,"GUEST ROOM FEE RECEIPT   "
  306. 3740 [152]3,[199](15)
  307. 3750 [152]3,"NAME "AO$
  308. 3760 [152]3,"DATE PAID "B$
  309. 3770 [152]3,"AMOUNT OWED $"AQ
  310. 3780 [152]3,"AMOUNT PAID $"AR
  311. 3790 A9[178]AQ[171]AR
  312. 3800 [152]3,"AMOUNT DUE  $"A9
  313. 3810 [152]3,"ATTENTION: "AS$
  314. 3820 [152]3,"           "AT$
  315. 3830 [152]3,"           "AU$
  316. 3840 [152]3,"           "AV$
  317. 3841 [152]3,"GUEST->"
  318. 3842 [152]3,"HOST ->"
  319. 3850 [152]3,"----------------------------------------------------------------"
  320. 3860 [139] ZZ[178]9 [167] 3871
  321. 3870 [160] 3,7
  322. 3871 [153]"WOULD YOU LIKE A COPY OF THE RECEIPTS    (Y/N) ":[133] Z1$
  323. 3872 [139] Z1$[178]"Y" [167] 2010
  324. 3873 [128]
  325.